home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-03-04 | 10.9 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '; Turbo Hockey'
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |; | |
|00000010| 20 20 20 20 20 20 20 20 | 20 54 75 72 62 6f 20 48 | | Turbo H|
|00000020| 6f 63 6b 65 79 00 3b 20 | 20 20 20 20 20 20 20 20 |ockey.; | |
|00000030| 20 20 20 20 20 20 20 20 | 43 6f 70 79 72 69 67 68 | |Copyrigh|
|00000040| 74 20 31 39 39 33 20 4d | 69 63 68 61 65 6c 20 42 |t 1993 M|ichael B|
|00000050| 6f 65 68 00 3b 00 3b 20 | 20 20 41 20 76 65 72 79 |oeh.;.; | A very|
|00000060| 20 73 69 6d 70 6c 65 20 | 68 6f 63 6b 65 79 20 67 | simple |hockey g|
|00000070| 61 6d 65 20 49 20 77 72 | 6f 74 65 20 69 6e 20 6c |ame I wr|ote in l|
|00000080| 65 73 73 20 74 68 61 6e | 20 32 20 64 61 79 73 21 |ess than| 2 days!|
|00000090| 00 3b 20 20 20 54 72 79 | 20 64 6f 69 6e 67 20 74 |.; Try| doing t|
|000000a0| 68 61 74 20 69 6e 20 61 | 6e 79 74 68 69 6e 67 20 |hat in a|nything |
|000000b0| 62 75 74 20 42 6c 69 74 | 7a 20 32 21 00 3b 00 3b |but Blit|z 2!.;.;|
|000000c0| 00 3b 00 3b 00 3b 20 20 | 46 65 65 6c 20 66 72 65 |.;.;.; |Feel fre|
|000000d0| 65 20 74 6f 20 6d 6f 64 | 69 66 79 20 74 68 69 73 |e to mod|ify this|
|000000e0| 20 63 6f 64 65 2c 20 6f | 72 20 62 65 74 74 65 72 | code, o|r better|
|000000f0| 20 79 65 74 2c 20 74 68 | 65 20 67 72 61 70 68 69 | yet, th|e graphi|
|00000100| 63 73 2e 00 3b 00 00 3b | 20 20 4d 6f 64 69 66 69 |cs..;..;| Modifi|
|00000110| 65 64 20 62 79 20 44 61 | 76 69 64 20 46 6f 6e 67 |ed by Da|vid Fong|
|00000120| 20 74 6f 20 61 20 66 6f | 75 72 20 70 6c 61 79 65 | to a fo|ur playe|
|00000130| 72 20 76 65 72 73 69 6f | 6e 2c 20 31 30 2d 4a 61 |r versio|n, 10-Ja|
|00000140| 6e 2d 39 34 2e 00 3b 20 | 20 54 6f 6f 6b 20 6d 65 |n-94..; | Took me|
|00000150| 20 74 68 72 65 65 20 64 | 61 79 73 20 74 6f 20 67 | three d|ays to g|
|00000160| 65 74 20 74 68 65 20 67 | 75 74 73 20 77 6f 72 6b |et the g|uts work|
|00000170| 69 6e 67 2c 20 61 6e 64 | 20 72 65 66 69 6e 65 6d |ing, and| refinem|
|00000180| 65 6e 74 00 3b 20 20 69 | 73 20 61 20 63 6f 6e 74 |ent.; i|s a cont|
|00000190| 69 6e 75 69 6e 67 20 70 | 72 6f 63 65 73 73 21 00 |inuing p|rocess!.|
|000001a0| 00 69 6e 69 74 69 61 6c | 69 7a 65 00 00 80 c3 00 |.initial|ize.....|
|000001b0| 00 3b 65 78 74 65 72 6e | 61 6c 20 6a 6f 79 73 74 |.;extern|al joyst|
|000001c0| 69 63 6b 20 72 6f 75 74 | 69 6e 65 73 00 00 3b 65 |ick rout|ines..;e|
|000001d0| 78 74 65 72 6e 61 6c 20 | 6a 6f 79 73 74 69 63 6b |xternal |joystick|
|000001e0| 73 20 61 72 65 20 63 6f | 6e 6e 65 63 74 65 64 20 |s are co|nnected |
|000001f0| 74 6f 20 74 68 65 20 70 | 61 72 61 6c 6c 65 6c 20 |to the p|arallel |
|00000200| 70 6f 72 74 00 3b 74 6f | 20 74 68 65 20 62 65 73 |port.;to| the bes|
|00000210| 74 20 6f 66 20 6d 79 20 | 6b 6e 6f 77 6c 65 64 67 |t of my |knowledg|
|00000220| 65 2c 20 6f 6e 6c 79 20 | 6f 6e 65 20 6a 6f 79 73 |e, only |one joys|
|00000230| 74 69 63 6b 20 62 75 74 | 74 6f 6e 00 3b 69 73 20 |tick but|ton.;is |
|00000240| 73 75 70 70 6f 72 74 65 | 64 2e 00 00 3b 74 68 65 |supporte|d...;the|
|00000250| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 6a 6f 79 73 74 | followi|ng joyst|
|00000260| 69 63 6b 20 63 6f 6e 66 | 69 67 75 72 61 74 69 6f |ick conf|iguratio|
|00000270| 6e 20 77 6f 72 6b 73 20 | 77 69 74 68 20 67 61 6d |n works |with gam|
|00000280| 65 73 00 3b 6c 69 6b 65 | 20 48 69 72 65 64 20 47 |es.;like| Hired G|
|00000290| 75 6e 73 2c 20 50 72 6f | 54 65 6e 6e 69 73 20 49 |uns, Pro|Tennis I|
|000002a0| 49 2c 54 56 20 53 70 6f | 72 74 73 20 42 61 73 6b |I,TV Spo|rts Bask|
|000002b0| 65 74 62 61 6c 6c 2c 00 | 3b 44 79 6e 61 62 6c 61 |etball,.|;Dynabla|
|000002c0| 73 74 65 72 20 28 61 6e | 64 20 70 72 6f 62 61 62 |ster (an|d probab|
|000002d0| 6c 79 20 47 61 75 6e 74 | 6c 65 74 29 2c 00 00 3b |ly Gaunt|let),..;|
|000002e0| 70 69 6e 2d 6c 69 73 74 | 20 66 6f 6c 6c 6f 77 73 |pin-list| follows|
|000002f0| 00 00 3b 44 42 2d 32 35 | 20 70 69 6e 20 6c 69 73 |..;DB-25| pin lis|
|00000300| 74 20 28 70 61 72 61 6c | 6c 65 6c 20 70 6f 72 74 |t (paral|lel port|
|00000310| 29 00 3b 00 3b 20 32 2d | 41 31 20 69 2e 65 2e 20 |).;.; 2-|A1 i.e. |
|00000320| 63 6f 6e 6e 65 63 74 20 | 70 69 6e 20 32 20 6f 66 |connect |pin 2 of|
|00000330| 20 70 61 72 61 6c 6c 65 | 6c 20 70 6f 72 74 20 74 | paralle|l port t|
|00000340| 6f 20 70 69 6e 20 31 20 | 6f 66 20 6a 6f 79 73 74 |o pin 1 |of joyst|
|00000350| 69 63 6b 20 41 00 3b 20 | 33 2d 41 32 00 3b 20 34 |ick A.; |3-A2.; 4|
|00000360| 2d 41 33 00 3b 20 35 2d | 41 34 00 3b 20 36 2d 42 |-A3.; 5-|A4.; 6-B|
|00000370| 31 00 3b 20 37 2d 42 32 | 00 3b 20 38 2d 42 33 00 |1.; 7-B2|.; 8-B3.|
|00000380| 3b 20 39 2d 42 34 00 3b | 31 31 2d 42 36 00 3b 31 |; 9-B4.;|11-B6.;1|
|00000390| 33 2d 41 36 00 3b 31 34 | 2d 41 37 20 61 6e 64 20 |3-A6.;14|-A7 and |
|000003a0| 42 37 20 28 74 69 65 64 | 20 74 6f 67 65 74 68 65 |B7 (tied| togethe|
|000003b0| 72 29 00 3b 31 37 2d 42 | 38 00 3b 31 39 2d 41 38 |r).;17-B|8.;19-A8|
|000003c0| 00 00 3b 49 20 74 61 6b | 65 20 6e 6f 20 72 65 73 |..;I tak|e no res|
|000003d0| 70 6f 6e 73 69 62 69 6c | 69 74 79 20 66 6f 72 20 |ponsibil|ity for |
|000003e0| 64 61 6d 61 67 65 20 74 | 6f 20 79 6f 75 72 73 65 |damage t|o yourse|
|000003f0| 6c 66 2c 20 79 6f 75 72 | 20 63 6f 6d 70 75 65 72 |lf, your| compuer|
|00000400| 00 3b 6f 72 20 6f 74 68 | 65 72 73 20 69 66 20 79 |.;or oth|ers if y|
|00000410| 6f 75 20 63 68 6f 6f 73 | 65 20 74 6f 20 6d 61 6b |ou choos|e to mak|
|00000420| 65 20 61 20 60 6a 6f 79 | 73 74 69 63 6b 20 65 78 |e a `joy|stick ex|
|00000430| 74 65 6e 73 69 6f 6e 27 | 20 62 61 73 65 64 00 3b |tension'| based.;|
|00000440| 6f 6e 20 74 68 65 20 61 | 62 6f 76 65 20 69 6e 66 |on the a|bove inf|
|00000450| 6f 72 6d 61 74 69 6f 6e | 2e 20 20 49 66 20 79 6f |ormation|. If yo|
|00000460| 75 20 52 45 41 4c 4c 59 | 20 77 61 6e 74 20 61 20 |u REALLY| want a |
|00000470| 6e 6f 2d 72 69 73 6b 00 | 3b 66 6f 75 72 20 6a 6f |no-risk.|;four jo|
|00000480| 79 73 74 69 63 6b 20 65 | 78 74 65 6e 73 69 6f 6e |ystick e|xtension|
|00000490| 2c 20 73 6f 6d 65 20 6f | 66 20 74 68 65 20 61 62 |, some o|f the ab|
|000004a0| 6f 76 65 20 6d 65 6e 74 | 69 6f 6e 65 64 20 67 61 |ove ment|ioned ga|
|000004b0| 6d 65 73 00 3b 63 6f 6d | 65 20 77 69 74 68 20 61 |mes.;com|e with a|
|000004c0| 6e 20 61 70 70 72 6f 70 | 72 69 61 74 65 2c 20 72 |n approp|riate, r|
|000004d0| 65 61 64 79 20 6d 61 64 | 65 2c 20 69 6e 74 65 72 |eady mad|e, inter|
|000004e0| 66 61 63 65 2e 00 00 80 | 09 20 78 6a 6f 79 79 7b |face....|. xjoyy{|
|000004f0| 70 7d 00 20 3b 72 65 74 | 75 72 6e 73 20 79 20 70 |p}. ;ret|urns y p|
|00000500| 6f 73 69 74 69 6f 6e 20 | 2d 20 2d 31 2c 30 2c 31 |osition |- -1,0,1|
|00000510| 20 2d 20 6f 66 20 74 68 | 65 20 65 78 74 65 72 6e | - of th|e extern|
|00000520| 61 6c 20 6a 6f 79 73 74 | 69 63 6b 20 70 00 20 3b |al joyst|ick p. ;|
|00000530| 70 20 69 73 20 74 68 65 | 20 70 6f 72 74 20 6e 75 |p is the| port nu|
|00000540| 6d 62 65 72 00 20 3b 65 | 69 74 68 65 72 20 30 20 |mber. ;e|ither 0 |
|00000550| 6f 72 20 31 00 00 20 79 | 2e 77 3d 30 00 20 70 72 |or 1.. y|.w=0. pr|
|00000560| 62 2e 62 3d da 02 2e 62 | 28 24 62 66 65 31 30 31 |b.b=...b|($bfe101|
|00000570| 29 00 20 80 0e 20 70 00 | 20 20 80 0f 20 30 00 20 |). .. p.| .. 0. |
|00000580| 20 20 80 0b 20 80 89 28 | 70 72 62 20 80 cd 20 30 | .. ..(|prb .. 0|
|00000590| 29 00 20 20 20 20 79 3d | 2d 31 00 20 20 20 80 c0 |). y=|-1. ..|
|000005a0| 00 20 20 20 80 0b 20 80 | 89 28 70 72 62 20 80 cd |. .. .|.(prb ..|
|000005b0| 20 31 29 00 20 20 20 20 | 79 3d 31 00 20 20 20 80 | 1). |y=1. .|
|000005c0| c0 00 20 20 80 0f 20 31 | 00 20 20 20 80 0b 20 80 |.. .. 1|. .. .|
|000005d0| 89 28 70 72 62 20 80 cd | 20 34 29 00 20 20 20 20 |.(prb ..| 4). |
|000005e0| 79 3d 2d 31 00 20 20 20 | 80 c0 00 20 20 20 80 0b |y=-1. |... ..|
|000005f0| 20 80 89 28 70 72 62 20 | 80 cd 20 35 29 00 20 20 | ..(prb |.. 5). |
|00000600| 20 20 79 3d 31 00 20 20 | 20 80 c0 00 20 20 80 10 | y=1. | ... ..|
|00000610| 00 20 80 02 20 80 0e 00 | 00 20 80 09 20 80 07 20 |. .. ...|. .. .. |
|00000620| 79 00 80 02 20 80 09 00 | 00 80 09 20 78 6a 6f 79 |y... ...|... xjoy|
|00000630| 78 7b 70 7d 00 20 3b 72 | 65 74 75 72 6e 73 20 78 |x{p}. ;r|eturns x|
|00000640| 20 70 6f 73 69 74 69 6f | 6e 20 2d 20 2d 31 2c 30 | positio|n - -1,0|
|00000650| 2c 31 20 2d 20 6f 66 20 | 74 68 65 20 65 78 74 65 |,1 - of |the exte|
|00000660| 72 6e 61 6c 20 6a 6f 79 | 73 74 69 63 6b 20 70 00 |rnal joy|stick p.|
|00000670| 20 3b 70 20 69 73 20 74 | 68 65 20 70 6f 72 74 20 | ;p is t|he port |
|00000680| 6e 75 6d 62 65 72 00 20 | 3b 65 69 74 68 65 72 20 |number. |;either |
|00000690| 30 20 6f 72 20 31 00 00 | 20 78 2e 77 3d 30 00 20 |0 or 1..| x.w=0. |
|000006a0| 70 72 62 2e 62 3d da 02 | 2e 62 28 24 62 66 65 31 |prb.b=..|.b($bfe1|
|000006b0| 30 31 29 00 20 80 0e 20 | 70 00 20 20 80 0f 20 30 |01). .. |p. .. 0|
|000006c0| 00 20 20 20 80 0b 20 80 | 89 28 70 72 62 20 80 cd |. .. .|.(prb ..|
|000006d0| 20 32 29 00 20 20 20 20 | 78 3d 2d 31 00 20 20 20 | 2). |x=-1. |
|000006e0| 80 c0 00 20 20 20 80 0b | 20 80 89 28 70 72 62 20 |... ..| ..(prb |
|000006f0| 80 cd 20 33 29 00 20 20 | 20 20 78 3d 31 00 20 20 |.. 3). | x=1. |
|00000700| 20 80 c0 00 20 20 80 0f | 20 31 00 20 20 20 80 0b | ... ..| 1. ..|
|00000710| 20 80 89 28 70 72 62 20 | 80 cd 20 36 29 00 20 20 | ..(prb |.. 6). |
|00000720| 20 20 78 3d 2d 31 00 20 | 20 20 80 c0 00 20 20 20 | x=-1. | ... |
|00000730| 80 0b 20 80 89 28 70 72 | 62 20 80 cd 20 37 29 00 |.. ..(pr|b .. 7).|
|00000740| 20 20 20 20 78 3d 31 00 | 20 20 20 80 c0 00 20 20 | x=1.| ... |
|00000750| 80 10 00 20 80 02 20 80 | 0e 00 00 20 80 09 20 80 |... .. .|... .. .|
|00000760| 07 20 78 00 80 02 20 80 | 09 00 00 80 09 20 78 6a |. x... .|..... xj|
|00000770| 6f 79 62 7b 70 7d 00 20 | 3b 72 65 74 75 72 6e 73 |oyb{p}. |;returns|
|00000780| 20 62 75 74 74 6f 6e 20 | 70 6f 73 69 74 69 6f 6e | button |position|
|00000790| 00 00 20 3b 62 75 74 74 | 6f 6e 20 32 20 61 6e 64 |.. ;butt|on 2 and|
|000007a0| 20 62 75 74 74 6f 6e 20 | 33 20 61 72 65 2c 20 74 | button |3 are, t|
|000007b0| 6f 20 74 68 65 00 20 3b | 62 65 73 74 20 6f 66 20 |o the. ;|best of |
|000007c0| 6d 79 20 6b 6e 6f 77 6c | 65 64 67 65 2c 20 6e 6f |my knowl|edge, no|
|000007d0| 74 20 73 75 70 70 6f 72 | 74 65 64 00 20 3b 62 79 |t suppor|ted. ;by|
|000007e0| 20 73 74 61 6e 64 61 72 | 64 20 60 65 78 74 65 72 | standar|d `exter|
|000007f0| 6e 61 6c 27 20 6a 6f 79 | 73 74 69 63 6b 00 20 3b |nal' joy|stick. ;|
|00000800| 63 6f 6e 66 69 67 75 72 | 61 74 69 6f 6e 2e 20 20 |configur|ation. |
|00000810| 50 6c 65 61 73 65 20 74 | 65 6c 6c 20 6d 65 20 69 |Please t|ell me i|
|00000820| 66 00 20 3b 49 27 6d 20 | 77 72 6f 6e 67 21 00 00 |f. ;I'm |wrong!..|
|00000830| 20 3b 70 20 69 73 20 74 | 68 65 20 70 6f 72 74 20 | ;p is t|he port |
|00000840| 6e 75 6d 62 65 72 00 20 | 3b 65 69 74 68 65 72 20 |number. |;either |
|00000850| 30 20 6f 72 20 31 00 00 | 20 62 2e 77 3d 30 00 20 |0 or 1..| b.w=0. |
|00000860| 70 72 61 2e 62 3d da 02 | 2e 62 28 24 62 66 64 30 |pra.b=..|.b($bfd0|
|00000870| 30 30 29 00 20 80 0e 20 | 70 00 20 20 80 0f 20 30 |00). .. |p. .. 0|
|00000880| 00 20 20 20 80 0b 20 80 | 89 28 70 72 61 20 80 cd |. .. .|.(pra ..|
|00000890| 20 32 29 00 20 20 20 20 | 62 2e 77 3d 31 00 20 20 | 2). |b.w=1. |
|000008a0| 20 80 c0 00 20 20 80 0f | 20 31 00 20 20 20 80 0b | ... ..| 1. ..|
|000008b0| 20 80 89 28 70 72 61 20 | 80 cd 20 30 29 00 20 20 | ..(pra |.. 0). |
|000008c0| 20 20 62 2e 77 3d 31 00 | 20 20 20 80 c0 00 20 20 | b.w=1.| ... |
|000008d0| 80 10 00 20 80 02 20 80 | 0e 00 00 20 80 09 20 80 |... .. .|... .. .|
|000008e0| 07 20 62 00 80 02 20 80 | 09 00 00 80 09 20 78 6a |. b... .|..... xj|
|000008f0| 6f 79 72 7b 70 7d 00 20 | 3b 72 65 74 75 72 6e 73 |oyr{p}. |;returns|
|00000900| 20 72 6f 74 61 74 69 6f | 6e 61 6c 20 64 69 72 65 | rotatio|nal dire|
|00000910| 63 74 69 6f 6e 00 20 3b | 6f 66 20 6a 6f 79 73 74 |ction. ;|of joyst|
|00000920| 69 63 6b 20 60 70 27 2e | 00 00 20 70 72 62 2e 62 |ick `p'.|.. prb.b|
|00000930| 3d da 02 2e 62 28 24 62 | 66 65 31 30 31 29 00 20 |=...b($b|fe101). |
|00000940| 80 0b 20 70 3d 30 00 20 | 20 6a 6f 79 2e 62 3d 31 |.. p=0. | joy.b=1|
|00000950| 35 2d 28 70 72 62 20 80 | 42 20 24 66 29 00 20 80 |5-(prb .|B $f). .|
|00000960| 22 00 20 20 6a 6f 79 2e | 62 3d 31 35 2d 28 28 70 |". joy.|b=15-((p|
|00000970| 72 62 20 80 42 20 24 66 | 30 29 20 80 45 20 34 29 |rb .B $f|0) .E 4)|
|00000980| 00 20 80 c0 00 00 20 72 | 2e 77 3d 30 00 20 80 0e |. .... r|.w=0. ..|
|00000990| 20 6a 6f 79 00 20 20 80 | 0f 20 30 00 20 20 20 72 | joy. .|. 0. r|
|000009a0| 3d 38 00 20 20 80 0f 20 | 31 00 20 20 20 72 3d 30 |=8. .. |1. r=0|
|000009b0| 00 20 20 80 0f 20 32 00 | 20 20 20 72 3d 34 00 20 |. .. 2.| r=4. |
|000009c0| 20 80 0f 20 34 00 20 20 | 20 72 3d 36 00 20 20 80 | .. 4. | r=6. .|
|000009d0| 0f 20 35 00 20 20 20 72 | 3d 37 00 20 20 80 0f 20 |. 5. r|=7. .. |
|000009e0| 36 00 20 20 20 72 3d 35 | 00 20 20 80 0f 20 38 00 |6. r=5|. .. 8.|
|000009f0| 20 20 20 72 3d 32 00 20 | 20 80 0f 20 39 00 20 20 | r=2. | .. 9. |
|00000a00| 20 72 3d 31 00 20 20 80 | 0f 20 31 30 00 20 20 20 | r=1. .|. 10. |
|00000a10| 72 3d 33 00 20 20 80 10 | 00 20 20 20 72 3d 2d 31 |r=3. ..|. r=-1|
|00000a20| 00 20 80 02 20 80 0e 00 | 00 20 80 09 20 80 07 20 |. .. ...|. .. .. |
|00000a30| 72 00 80 02 20 80 09 00 | 00 6e 5f 70 6c 61 79 65 |r... ...|.n_playe|
|00000a40| 72 3d 34 00 ba 03 20 30 | 2c 22 48 49 54 22 00 ba |r=4... 0|,"HIT"..|
|00000a50| 03 20 31 2c 22 48 45 53 | 43 4f 52 45 53 22 00 ba |. 1,"HES|CORES"..|
|00000a60| 03 20 32 2c 22 63 6f 6c | 6c 69 64 65 22 00 ba 03 |. 2,"col|lide"...|
|00000a70| 20 33 2c 22 62 6f 75 6e | 63 65 22 00 cd 0a 20 39 | 3,"boun|ce"... 9|
|00000a80| 2c 39 2c 22 70 75 63 6b | 2e 73 68 61 70 65 22 00 |,9,"puck|.shape".|
|00000a90| cd 0a 20 31 30 2c 31 31 | 2c 22 67 6f 61 6c 69 65 |.. 10,11|,"goalie|
|00000aa0| 73 2e 73 68 61 70 65 22 | 00 cd 0a 20 30 2c 37 2c |s.shape"|... 0,7,|
|00000ab0| 22 48 4f 43 4b 45 59 2e | 53 48 41 50 45 53 22 00 |"HOCKEY.|SHAPES".|
|00000ac0| 80 04 20 73 70 65 65 64 | 78 2e 71 28 33 2b 6e 5f |.. speed|x.q(3+n_|
|00000ad0| 70 6c 61 79 65 72 29 2c | 20 73 70 65 65 64 79 2e |player),| speedy.|
|00000ae0| 71 28 33 2b 6e 5f 70 6c | 61 79 65 72 29 2c 70 6f |q(3+n_pl|ayer),po|
|00000af0| 73 78 2e 71 28 33 2b 6e | 5f 70 6c 61 79 65 72 29 |sx.q(3+n|_player)|
|00000b00| 2c 70 6f 73 79 2e 71 28 | 33 2b 6e 5f 70 6c 61 79 |,posy.q(|3+n_play|
|00000b10| 65 72 29 00 80 04 20 67 | 6f 61 6c 69 65 78 28 33 |er)... g|oaliex(3|
|00000b20| 29 3a 80 04 20 67 6f 61 | 6c 69 65 79 28 33 29 00 |):.. goa|liey(3).|
|00000b30| d0 01 20 30 2c 33 33 36 | 2c 32 30 30 2c 36 00 cd |.. 0,336|,200,6..|
|00000b40| 01 20 31 32 2c 22 72 69 | 6e 6b 22 2c 31 00 80 2c |. 12,"ri|nk",1..,|
|00000b50| 20 d0 01 20 30 00 cb 01 | 20 31 32 2c 30 2c 30 00 | .. 0...| 12,0,0.|
|00000b60| 80 2b 20 cd 0c 20 31 32 | 00 b4 04 20 33 32 2c 36 |.+ .. 12|... 32,6|
|00000b70| 00 00 c9 01 20 30 2c 31 | 36 33 38 34 00 00 80 37 |.... 0,1|6384...7|
|00000b80| 20 31 30 30 00 80 34 00 | 00 80 2c 20 d0 01 20 30 | 100..4.|.., .. 0|
|00000b90| 00 d0 01 20 31 2c 33 32 | 30 2c 31 30 2c 32 00 d0 |... 1,32|0,10,2..|
|00000ba0| 01 20 32 2c 33 32 30 2c | 31 30 2c 32 00 00 3b 4d |. 2,320,|10,2..;M|
|00000bb0| 61 6b 65 20 74 68 65 20 | 73 68 61 70 65 73 20 69 |ake the |shapes i|
|00000bc0| 6e 74 6f 20 73 70 72 69 | 74 65 73 00 80 16 20 61 |nto spri|tes... a|
|00000bd0| 20 3d 20 30 20 80 18 20 | 37 00 20 b8 01 20 61 2c | = 0 .. |7. .. a,|
|00000be0| 61 00 20 80 2b 20 cd 0c | 20 61 00 80 17 20 61 00 |a. .+ ..| a... a.|
|00000bf0| 00 80 04 20 63 75 72 72 | 65 6e 74 28 6e 5f 70 6c |... curr|ent(n_pl|
|00000c00| 61 79 65 72 29 20 20 20 | 20 20 20 3b 20 74 68 65 |ayer) | ; the|
|00000c10| 20 63 75 72 72 65 6e 74 | 20 73 70 72 69 74 65 20 | current| sprite |
|00000c20| 66 6f 72 20 74 68 65 20 | 74 77 6f 20 70 6c 61 79 |for the |two play|
|00000c30| 65 72 73 00 00 c8 01 20 | 30 2c 35 36 2c 33 32 30 |ers.... |0,56,320|
|00000c40| 2c 32 30 30 2c 24 66 66 | 66 38 2c 36 2c 38 2c 33 |,200,$ff|f8,6,8,3|
|00000c50| 32 2c 33 33 36 2c 33 33 | 36 20 20 20 20 20 20 20 |2,336,33|6 |
|00000c60| 20 3b 73 65 74 20 75 70 | 20 74 68 65 20 73 6c 69 | ;set up| the sli|
|00000c70| 63 65 73 00 c8 01 20 31 | 2c 34 34 2c 33 32 30 2c |ces... 1|,44,320,|
|00000c80| 31 30 2c 24 66 66 66 38 | 2c 32 2c 30 2c 34 2c 33 |10,$fff8|,2,0,4,3|
|00000c90| 32 30 2c 33 32 30 00 00 | 80 2c 20 d0 01 20 31 3a |20,320..|., .. 1:|
|00000ca0| 80 2c 20 c8 01 20 31 3a | b2 05 20 31 3a c8 04 20 |., .. 1:|.. 1:.. |
|00000cb0| 31 00 c7 03 20 30 2c 31 | 3a c7 02 20 31 3a c7 04 |1... 0,1|:.. 1:..|
|00000cc0| 20 30 2c 2e 32 00 dd 81 | 22 20 4c 6f 73 20 41 6e | 0,.2...|" Los An|
|00000cd0| 67 65 6c 6f 73 20 20 20 | 20 20 20 20 20 20 20 20 |gelos | |
|00000ce0| 20 4d 6f 6e 74 72 65 61 | 6c 20 22 00 ce 05 20 30 | Montrea|l "... 0|
|00000cf0| 2c 31 35 2c 31 35 2c 31 | 35 3a ce 05 20 31 2c 30 |,15,15,1|5:.. 1,0|
|00000d00| 2c 30 2c 30 00 80 2c 20 | c8 01 20 30 3a 80 2c 20 |,0,0.., |.. 0:., |
|00000d10| d0 01 20 30 00 c8 04 20 | 30 00 00 80 2c 20 ce 09 |.. 0... |0..., ..|
|00000d20| 20 31 00 80 0c 20 df 04 | 28 30 29 20 3d 20 30 20 | 1... ..|(0) = 0 |
|00000d30| 80 42 20 df 04 28 31 29 | 20 3d 20 30 00 80 c1 00 |.B ..(1)| = 0....|
|00000d40| 00 73 74 61 72 74 3a 00 | 67 6f 61 6c 69 65 78 28 |.start:.|goaliex(|
|00000d50| 30 29 20 3d 20 30 3a 67 | 6f 61 6c 69 65 78 28 31 |0) = 0:g|oaliex(1|
|00000d60| 29 20 3d 20 33 30 36 20 | 20 20 20 20 20 20 3b 00 |) = 306 | ;.|
|00000d70| 67 6f 61 6c 69 65 79 28 | 30 29 20 3d 20 38 39 3a |goaliey(|0) = 89:|
|00000d80| 67 6f 61 6c 69 65 79 28 | 31 29 20 3d 20 38 39 20 |goaliey(|1) = 89 |
|00000d90| 20 20 20 20 20 20 20 3b | 00 cb 02 20 cb 03 20 20 | ;|... .. |
|00000da0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000db0| 20 20 20 3b 20 20 50 6f | 73 69 74 69 6f 6e 20 61 | ; Po|sition a|
|00000dc0| 6e 64 20 64 72 61 77 20 | 67 6f 61 6c 69 65 73 00 |nd draw |goalies.|
|00000dd0| cb 01 20 31 31 2c 67 6f | 61 6c 69 65 78 28 30 29 |.. 11,go|aliex(0)|
|00000de0| 2c 67 6f 61 6c 69 65 79 | 28 30 29 20 20 20 20 20 |,goaliey|(0) |
|00000df0| 20 20 20 20 20 3b 00 cb | 01 20 31 30 2c 67 6f 61 | ;..|. 10,goa|
|00000e00| 6c 69 65 78 28 31 29 2c | 67 6f 61 6c 69 65 79 28 |liex(1),|goaliey(|
|00000e10| 31 29 20 20 20 20 20 20 | 20 20 20 3b 00 00 70 6f |1) | ;..po|
|00000e20| 73 78 2e 71 28 30 29 20 | 3d 20 35 30 3a 70 6f 73 |sx.q(0) |= 50:pos|
|00000e30| 79 2e 71 28 30 29 20 3d | 20 38 38 20 20 20 20 20 |y.q(0) =| 88 |
|00000e40| 20 20 20 20 20 20 20 20 | 20 20 3b 00 70 6f 73 78 | | ;.posx|
|00000e50| 2e 71 28 31 29 20 3d 20 | 33 32 30 2d 37 30 3a 70 |.q(1) = |320-70:p|
|00000e60| 6f 73 79 2e 71 28 31 29 | 20 3d 20 38 38 20 20 20 |osy.q(1)| = 88 |
|00000e70| 20 20 20 20 20 20 20 20 | 20 3b 20 20 20 49 6e 69 | | ; Ini|
|00000e80| 74 69 61 6c 20 70 6f 73 | 69 74 69 6f 6e 20 6f 66 |tial pos|ition of|
|00000e90| 20 70 6c 61 79 65 72 73 | 00 70 6f 73 78 2e 71 28 | players|.posx.q(|
|00000ea0| 32 29 20 3d 20 35 30 3a | 70 6f 73 79 2e 71 28 32 |2) = 50:|posy.q(2|
|00000eb0| 29 20 3d 20 31 30 38 00 | 70 6f 73 78 2e 71 28 33 |) = 108.|posx.q(3|
|00000ec0| 29 20 3d 20 33 32 30 2d | 37 30 3a 70 6f 73 79 2e |) = 320-|70:posy.|
|00000ed0| 71 28 33 29 20 3d 20 31 | 30 38 00 70 6f 73 78 2e |q(3) = 1|08.posx.|
|00000ee0| 71 28 34 29 20 3d 20 31 | 35 36 3a 70 6f 73 79 2e |q(4) = 1|56:posy.|
|00000ef0| 71 28 34 29 3d 20 39 38 | 20 20 20 20 20 20 20 20 |q(4)= 98| |
|00000f00| 20 20 20 20 20 20 20 20 | 3b 20 20 20 61 6e 64 20 | |; and |
|00000f10| 70 75 63 6b 00 63 75 72 | 72 65 6e 74 28 30 29 20 |puck.cur|rent(0) |
|00000f20| 3d 20 32 3a 63 75 72 72 | 65 6e 74 28 31 29 20 3d |= 2:curr|ent(1) =|
|00000f30| 20 36 20 20 20 20 20 20 | 20 20 20 20 20 3b 70 6c | 6 | ;pl|
|00000f40| 61 79 65 72 73 20 32 20 | 61 6e 64 20 33 00 63 75 |ayers 2 |and 3.cu|
|00000f50| 72 72 65 6e 74 28 32 29 | 20 3d 20 32 3a 63 75 72 |rrent(2)| = 2:cur|
|00000f60| 72 65 6e 74 28 33 29 20 | 3d 20 36 00 77 68 6f 3d |rent(3) |= 6.who=|
|00000f70| 34 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |4 | |
|00000f80| 20 20 20 3b 20 30 20 3d | 20 70 6c 61 79 65 72 30 | ; 0 =| player0|
|00000f90| 27 73 20 70 75 63 6b 20 | 31 3d 70 6c 61 79 65 72 |'s puck |1=player|
|00000fa0| 31 27 73 20 70 75 63 6b | 20 20 34 3d 6e 6f 20 6f |1's puck| 4=no o|
|00000fb0| 6e 65 27 73 00 80 16 20 | 61 20 3d 20 30 20 80 18 |ne's... |a = 0 ..|
|00000fc0| 20 34 00 20 73 70 65 65 | 64 78 2e 71 28 61 29 20 | 4. spee|dx.q(a) |
|00000fd0| 3d 20 30 3a 20 73 70 65 | 65 64 79 2e 71 28 61 29 |= 0: spe|edy.q(a)|
|00000fe0| 20 3d 20 30 00 80 17 20 | 61 00 80 0c 20 72 72 72 | = 0... |a... rrr|
|00000ff0| 20 3c 3e 20 32 31 00 20 | 80 16 20 61 20 3d 20 30 | <> 21. |.. a = 0|
|00001000| 20 80 18 20 34 00 00 20 | 20 80 0b 20 61 20 3c 20 | .. 4.. | .. a < |
|00001010| 34 00 20 20 20 80 0e 20 | 61 00 20 20 20 20 80 0f |4. .. |a. ..|
|00001020| 20 30 00 20 20 20 20 20 | 6a 79 3d df 02 28 30 29 | 0. |jy=..(0)|
|00001030| 3a 6a 78 3d df 01 28 30 | 29 3a 6a 72 3d df 03 28 |:jx=..(0|):jr=..(|
|00001040| 30 29 3a 6a 62 3d df 04 | 28 30 29 00 20 20 20 20 |0):jb=..|(0). |
|00001050| 80 0f 20 31 00 20 20 20 | 20 20 6a 79 3d df 02 28 |.. 1. | jy=..(|
|00001060| 31 29 3a 6a 78 3d df 01 | 28 31 29 3a 6a 72 3d df |1):jx=..|(1):jr=.|
|00001070| 03 28 31 29 3a 6a 62 3d | df 04 28 31 29 20 20 20 |.(1):jb=|..(1) |
|00001080| 3b 20 69 66 20 61 20 70 | 6c 61 79 65 72 2c 20 72 |; if a p|layer, r|
|00001090| 65 61 64 20 74 68 65 20 | 73 74 69 63 6b 00 20 20 |ead the |stick. |
|000010a0| 20 20 80 0f 20 32 00 20 | 20 20 20 20 6a 79 3d 78 | .. 2. | jy=x|
|000010b0| 6a 6f 79 79 7b 30 7d 3a | 6a 78 3d 78 6a 6f 79 78 |joyy{0}:|jx=xjoyx|
|000010c0| 7b 30 7d 3a 6a 72 3d 78 | 6a 6f 79 72 7b 30 7d 3a |{0}:jr=x|joyr{0}:|
|000010d0| 6a 62 3d 78 6a 6f 79 62 | 7b 30 7d 00 20 20 20 20 |jb=xjoyb|{0}. |
|000010e0| 80 0f 20 33 00 20 20 20 | 20 20 6a 79 3d 78 6a 6f |.. 3. | jy=xjo|
|000010f0| 79 79 7b 31 7d 3a 6a 78 | 3d 78 6a 6f 79 78 7b 31 |yy{1}:jx|=xjoyx{1|
|00001100| 7d 3a 6a 72 3d 78 6a 6f | 79 72 7b 31 7d 3a 6a 62 |}:jr=xjo|yr{1}:jb|
|00001110| 3d 78 6a 6f 79 62 7b 31 | 7d 00 20 20 20 20 80 10 |=xjoyb{1|}. ..|
|00001120| 00 20 20 20 80 02 20 80 | 0e 00 00 20 20 20 80 0b |. .. .|... ..|
|00001130| 20 6a 62 3d 31 20 80 42 | 20 77 68 6f 3d 61 20 20 | jb=1 .B| who=a |
|00001140| 20 20 20 20 3b 20 73 68 | 6f 6f 74 20 74 68 65 20 | ; sh|oot the |
|00001150| 70 75 63 6b 20 61 63 63 | 6f 72 64 69 6e 67 20 74 |puck acc|ording t|
|00001160| 6f 20 73 70 65 65 64 2c | 20 64 69 72 65 63 74 69 |o speed,| directi|
|00001170| 6f 6e 2c 20 61 6e 64 20 | 70 6f 73 69 74 69 6f 6e |on, and |position|
|00001180| 00 20 20 20 20 ba 04 20 | 30 2c 31 35 00 20 20 20 |. .. |0,15. |
|00001190| 20 80 0e 20 63 75 72 72 | 65 6e 74 28 61 29 00 20 | .. curr|ent(a). |
|000011a0| 20 20 20 20 80 0f 20 30 | 00 20 20 20 20 20 20 73 | .. 0|. s|
|000011b0| 70 65 65 64 78 2e 71 28 | 34 29 2b 30 3a 73 70 65 |peedx.q(|4)+0:spe|
|000011c0| 65 64 79 2e 71 28 34 29 | 20 2d 20 33 32 00 20 20 |edy.q(4)| - 32. |
|000011d0| 20 20 20 80 0f 20 31 00 | 20 20 20 20 20 20 73 70 | .. 1.| sp|
|000011e0| 65 65 64 78 2e 71 28 34 | 29 2b 33 32 3a 73 70 65 |eedx.q(4|)+32:spe|
|000011f0| 65 64 79 2e 71 28 34 29 | 20 2d 20 33 32 00 20 20 |edy.q(4)| - 32. |
|00001200| 20 20 20 80 0f 20 32 00 | 20 20 20 20 20 20 73 70 | .. 2.| sp|
|00001210| 65 65 64 78 2e 71 28 34 | 29 2b 33 32 3a 73 70 65 |eedx.q(4|)+32:spe|
|00001220| 65 64 79 2e 71 28 34 29 | 20 2b 20 30 00 20 20 20 |edy.q(4)| + 0. |
|00001230| 20 20 80 0f 20 33 00 20 | 20 20 20 20 20 73 70 65 | .. 3. | spe|
|00001240| 65 64 78 2e 71 28 34 29 | 2b 33 32 3a 73 70 65 65 |edx.q(4)|+32:spee|
|00001250| 64 79 2e 71 28 34 29 20 | 2b 20 33 32 00 20 20 20 |dy.q(4) |+ 32. |
|00001260| 20 20 80 0f 20 34 00 20 | 20 20 20 20 20 73 70 65 | .. 4. | spe|
|00001270| 65 64 78 2e 71 28 34 29 | 2b 30 3a 73 70 65 65 64 |edx.q(4)|+0:speed|
|00001280| 79 2e 71 28 34 29 20 2b | 20 33 32 00 20 20 20 20 |y.q(4) +| 32. |
|00001290| 20 80 0f 20 35 00 20 20 | 20 20 20 20 73 70 65 65 | .. 5. | spee|
|000012a0| 64 78 2e 71 28 34 29 2d | 33 32 3a 73 70 65 65 64 |dx.q(4)-|32:speed|
|000012b0| 79 2e 71 28 34 29 20 2b | 20 33 32 00 20 20 20 20 |y.q(4) +| 32. |
|000012c0| 20 80 0f 20 36 00 20 20 | 20 20 20 20 73 70 65 65 | .. 6. | spee|
|000012d0| 64 78 2e 71 28 34 29 2d | 33 32 3a 73 70 65 65 64 |dx.q(4)-|32:speed|
|000012e0| 79 2e 71 28 34 29 20 2b | 20 30 00 20 20 20 20 20 |y.q(4) +| 0. |
|000012f0| 80 0f 20 37 00 20 20 20 | 20 20 20 73 70 65 65 64 |.. 7. | speed|
|00001300| 78 2e 71 28 34 29 2d 33 | 32 3a 73 70 65 65 64 79 |x.q(4)-3|2:speedy|
|00001310| 2e 71 28 34 29 20 2d 20 | 33 32 00 20 20 20 20 20 |.q(4) - |32. |
|00001320| 80 10 00 20 20 20 20 80 | 02 20 80 0e 00 20 20 20 |... .|. ... |
|00001330| 20 73 70 65 65 64 78 2e | 71 28 34 29 20 3d 20 73 | speedx.|q(4) = s|
|00001340| 70 65 65 64 78 2e 71 28 | 34 29 20 2a 20 31 2e 35 |peedx.q(|4) * 1.5|
|00001350| 3a 73 70 65 65 64 79 2e | 71 28 34 29 20 3d 20 73 |:speedy.|q(4) = s|
|00001360| 70 65 65 64 79 2e 71 28 | 34 29 20 2a 20 31 2e 35 |peedy.q(|4) * 1.5|
|00001370| 00 20 20 20 20 77 68 6f | 3d 34 20 20 20 3b 20 6e |. who|=4 ; n|
|00001380| 6f 77 20 6e 6f 20 6f 6e | 65 20 68 61 73 20 69 74 |ow no on|e has it|
|00001390| 00 20 20 20 80 c0 00 00 | 20 20 20 80 0b 20 6a 62 |. ....| .. jb|
|000013a0| 3d 31 20 80 42 20 77 68 | 6f 3c 3e 61 20 3b 20 69 |=1 .B wh|o<>a ; i|
|000013b0| 66 20 62 75 74 74 6f 6e | 20 69 73 20 70 72 65 73 |f button| is pres|
|000013c0| 73 65 64 20 61 6e 64 20 | 6e 6f 20 70 75 63 6b 2c |sed and |no puck,|
|000013d0| 20 6d 6f 76 65 20 74 68 | 65 20 67 6f 61 6c 69 65 | move th|e goalie|
|000013e0| 20 61 63 63 6f 72 64 69 | 6e 67 20 74 6f 20 74 68 | accordi|ng to th|
|000013f0| 65 20 73 74 69 63 6b 00 | 20 20 20 20 3b 6a 79 3d |e stick.| ;jy=|
|00001400| 4a 6f 79 79 28 61 29 20 | 20 20 20 20 20 20 3b 20 |Joyy(a) | ; |
|00001410| 6e 6f 20 6c 6f 6e 67 65 | 72 20 6e 65 65 64 20 74 |no longe|r need t|
|00001420| 68 69 73 20 6c 69 6e 65 | 00 20 20 20 20 67 79 3d |his line|. gy=|
|00001430| 67 6f 61 6c 69 65 79 28 | 61 29 00 20 20 20 20 80 |goaliey(|a). .|
|00001440| 0b 20 67 79 2b 32 2a 6a | 79 20 3e 20 37 34 20 80 |. gy+2*j|y > 74 .|
|00001450| 42 20 67 79 2b 32 2a 6a | 79 20 3c 20 31 30 34 00 |B gy+2*j|y < 104.|
|00001460| 20 20 20 20 20 cb 02 20 | cb 04 00 20 20 20 20 20 | .. |... |
|00001470| cb 01 20 31 31 2d 61 2c | 67 6f 61 6c 69 65 78 28 |.. 11-a,|goaliex(|
|00001480| 61 29 2c 67 6f 61 6c 69 | 65 79 28 61 29 00 20 20 |a),goali|ey(a). |
|00001490| 20 20 20 67 6f 61 6c 69 | 65 79 28 61 29 2b 32 2a | goali|ey(a)+2*|
|000014a0| 6a 79 00 20 20 20 20 20 | cb 02 20 cb 03 00 20 20 |jy. |.. ... |
|000014b0| 20 20 20 cb 01 20 31 31 | 2d 61 2c 67 6f 61 6c 69 | .. 11|-a,goali|
|000014c0| 65 78 28 61 29 2c 67 6f | 61 6c 69 65 79 28 61 29 |ex(a),go|aliey(a)|
|000014d0| 00 20 20 20 20 80 c0 00 | 20 20 20 80 c0 00 20 20 |. ...| ... |
|000014e0| 80 c0 00 00 3b 20 20 54 | 68 65 73 65 20 73 65 74 |....; T|hese set|
|000014f0| 20 74 68 65 20 64 65 63 | 65 6c 6c 65 72 61 74 69 | the dec|ellerati|
|00001500| 69 6f 6e 20 6f 66 20 70 | 6c 61 79 65 72 73 20 61 |ion of p|layers a|
|00001510| 6e 64 20 70 75 63 6b 00 | 20 20 80 0b 20 73 70 65 |nd puck.| .. spe|
|00001520| 65 64 78 2e 71 28 61 29 | 20 3c 3e 20 30 20 80 21 |edx.q(a)| <> 0 .!|
|00001530| 20 73 70 65 65 64 78 2e | 71 28 61 29 20 2d 20 28 | speedx.|q(a) - (|
|00001540| 73 70 65 65 64 78 2e 71 | 28 61 29 2f bc 08 28 73 |speedx.q|(a)/..(s|
|00001550| 70 65 65 64 78 2e 71 28 | 61 29 29 29 00 20 20 80 |peedx.q(|a))). .|
|00001560| 0b 20 73 70 65 65 64 79 | 2e 71 28 61 29 20 3c 3e |. speedy|.q(a) <>|
|00001570| 20 30 20 80 21 20 73 70 | 65 65 64 79 2e 71 28 61 | 0 .! sp|eedy.q(a|
|00001580| 29 20 2d 20 28 73 70 65 | 65 64 79 2e 71 28 61 29 |) - (spe|edy.q(a)|
|00001590| 2f bc 08 28 73 70 65 65 | 64 79 2e 71 28 61 29 29 |/..(spee|dy.q(a))|
|000015a0| 29 00 00 20 20 80 0b 20 | 61 20 3c 20 34 20 20 73 |).. .. |a < 4 s|
|000015b0| 70 65 65 64 78 2e 71 28 | 61 29 2b 6a 78 2a 33 3a |peedx.q(|a)+jx*3:|
|000015c0| 73 70 65 65 64 79 2e 71 | 28 61 29 2b 6a 79 2a 33 |speedy.q|(a)+jy*3|
|000015d0| 20 20 20 20 3b 20 61 63 | 63 65 6c 6c 65 72 61 74 | ; ac|cellerat|
|000015e0| 65 20 69 6e 20 64 69 72 | 20 6f 66 20 73 74 69 63 |e in dir| of stic|
|000015f0| 6b 00 20 20 80 0b 20 61 | 20 3c 20 34 20 20 20 20 |k. .. a| < 4 |
|00001600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00001620| 20 74 65 73 74 20 77 61 | 6c 6c 20 68 69 74 73 20 | test wa|ll hits |
|00001630| 62 79 20 70 6c 61 79 65 | 72 73 00 20 20 20 3b 20 |by playe|rs. ; |
|00001640| 6c 69 6d 69 74 20 70 6c | 61 79 65 72 73 20 73 70 |limit pl|ayers sp|
|00001650| 65 65 64 20 74 6f 20 35 | 30 00 20 20 20 73 70 65 |eed to 5|0. spe|
|00001660| 65 64 78 2e 71 28 61 29 | 3d bc 0a 28 73 70 65 65 |edx.q(a)|=..(spee|
|00001670| 64 78 2e 71 28 61 29 2c | 2d 34 30 2c 34 30 29 00 |dx.q(a),|-40,40).|
|00001680| 20 20 20 73 70 65 65 64 | 79 2e 71 28 61 29 3d bc | speed|y.q(a)=.|
|00001690| 0a 28 73 70 65 65 64 79 | 2e 71 28 61 29 2c 2d 34 |.(speedy|.q(a),-4|
|000016a0| 30 2c 34 30 29 00 00 20 | 20 20 80 0b 20 70 6f 73 |0,40).. | .. pos|
|000016b0| 78 2e 71 28 61 29 2b 73 | 70 65 65 64 78 2e 71 28 |x.q(a)+s|peedx.q(|
|000016c0| 61 29 2f 31 30 20 3e 20 | 32 39 30 20 80 21 20 73 |a)/10 > |290 .! s|
|000016d0| 70 65 65 64 78 2e 71 28 | 61 29 2a 2d 31 3a ba 04 |peedx.q(|a)*-1:..|
|000016e0| 20 33 2c 31 35 2c 36 30 | 00 20 20 20 80 0b 20 70 | 3,15,60|. .. p|
|000016f0| 6f 73 78 2e 71 28 61 29 | 2b 73 70 65 65 64 78 2e |osx.q(a)|+speedx.|
|00001700| 71 28 61 29 2f 31 30 20 | 3c 20 31 33 20 80 21 20 |q(a)/10 |< 13 .! |
|00001710| 73 70 65 65 64 78 2e 71 | 28 61 29 2a 2d 31 3a ba |speedx.q|(a)*-1:.|
|00001720| 04 20 33 2c 31 35 2c 36 | 30 00 20 20 20 80 0b 20 |. 3,15,6|0. .. |
|00001730| 70 6f 73 79 2e 71 28 61 | 29 2b 73 70 65 65 64 79 |posy.q(a|)+speedy|
|00001740| 2e 71 28 61 29 2f 31 30 | 20 3e 20 31 37 37 20 80 |.q(a)/10| > 177 .|
|00001750| 21 20 73 70 65 65 64 79 | 2e 71 28 61 29 2a 2d 31 |! speedy|.q(a)*-1|
|00001760| 3a ba 04 20 33 2c 31 35 | 2c 36 30 00 20 20 20 80 |:.. 3,15|,60. .|
|00001770| 0b 20 70 6f 73 79 2e 71 | 28 61 29 2b 73 70 65 65 |. posy.q|(a)+spee|
|00001780| 64 79 2e 71 28 61 29 2f | 31 30 20 3c 20 37 20 80 |dy.q(a)/|10 < 7 .|
|00001790| 21 20 73 70 65 65 64 79 | 2e 71 28 61 29 2a 2d 31 |! speedy|.q(a)*-1|
|000017a0| 3a ba 04 20 33 2c 31 35 | 2c 36 30 00 20 20 80 22 |:.. 3,15|,60. ."|
|000017b0| 00 20 20 20 73 70 65 65 | 64 78 2e 71 28 61 29 3d |. spee|dx.q(a)=|
|000017c0| bc 0a 28 73 70 65 65 64 | 78 2e 71 28 61 29 2c 2d |..(speed|x.q(a),-|
|000017d0| 38 30 2c 38 30 29 00 20 | 20 20 73 70 65 65 64 79 |80,80). | speedy|
|000017e0| 2e 71 28 61 29 3d bc 0a | 28 73 70 65 65 64 79 2e |.q(a)=..|(speedy.|
|000017f0| 71 28 61 29 2c 2d 38 30 | 2c 38 30 29 00 00 20 20 |q(a),-80|,80).. |
|00001800| 20 3b 20 74 65 73 74 20 | 74 68 65 20 70 6f 73 69 | ; test |the posi|
|00001810| 74 69 6f 6e 20 6f 66 20 | 70 75 63 6b 20 61 6e 64 |tion of |puck and|
|00001820| 20 63 68 65 63 6b 20 66 | 6f 72 20 67 6f 61 6c 00 | check f|or goal.|
|00001830| 20 20 20 80 0b 20 70 6f | 73 78 2e 71 28 61 29 20 | .. po|sx.q(a) |
|00001840| 3e 20 33 31 36 20 80 42 | 20 70 6f 73 79 2e 71 28 |> 316 .B| posy.q(|
|00001850| 61 29 20 3e 20 37 38 20 | 80 42 20 70 6f 73 79 2e |a) > 78 |.B posy.|
|00001860| 71 28 61 29 20 3c 20 31 | 31 35 20 80 42 20 77 68 |q(a) < 1|15 .B wh|
|00001870| 6f 20 3d 20 34 20 80 21 | 20 73 63 6f 72 65 31 2b |o = 4 .!| score1+|
|00001880| 31 3a 80 05 20 67 6f 61 | 6c 00 20 20 20 80 0b 20 |1:.. goa|l. .. |
|00001890| 70 6f 73 78 2e 71 28 61 | 29 20 3c 20 33 20 80 42 |posx.q(a|) < 3 .B|
|000018a0| 20 70 6f 73 79 2e 71 28 | 61 29 20 3e 20 37 38 20 | posy.q(|a) > 78 |
|000018b0| 80 42 20 70 6f 73 79 2e | 71 28 61 29 20 3c 20 31 |.B posy.|q(a) < 1|
|000018c0| 31 35 20 80 42 20 77 68 | 6f 20 3d 20 34 20 80 21 |15 .B wh|o = 4 .!|
|000018d0| 20 73 63 6f 72 65 30 2b | 31 3a 80 05 20 67 6f 61 | score0+|1:.. goa|
|000018e0| 6c 00 20 20 20 70 78 20 | 3d 20 70 6f 73 78 2e 71 |l. px |= posx.q|
|000018f0| 28 61 29 2b 73 70 65 65 | 64 78 2e 71 28 61 29 2f |(a)+spee|dx.q(a)/|
|00001900| 31 30 3a 70 79 3d 70 6f | 73 79 2e 71 28 61 29 2b |10:py=po|sy.q(a)+|
|00001910| 73 70 65 65 64 79 2e 71 | 28 61 29 2f 31 30 00 20 |speedy.q|(a)/10. |
|00001920| 20 20 80 0b 20 70 78 20 | 3e 20 33 30 34 20 80 42 | .. px |> 304 .B|
|00001930| 20 28 70 79 3c 20 37 38 | 20 80 8a 20 70 79 20 3e | (py< 78| .. py >|
|00001940| 20 31 31 35 29 20 20 80 | 21 20 73 70 65 65 64 78 | 115) .|! speedx|
|00001950| 2e 71 28 61 29 2a 2d 31 | 20 3a 20 ba 04 20 33 2c |.q(a)*-1| : .. 3,|
|00001960| 31 35 2c 36 30 00 20 20 | 20 80 0b 20 70 78 20 3c |15,60. | .. px <|
|00001970| 20 31 32 20 80 42 20 28 | 70 79 3c 20 37 38 20 80 | 12 .B (|py< 78 .|
|00001980| 8a 20 70 79 20 3e 20 31 | 31 35 29 80 21 20 73 70 |. py > 1|15).! sp|
|00001990| 65 65 64 78 2e 71 28 61 | 29 2a 2d 31 3a ba 04 20 |eedx.q(a|)*-1:.. |
|000019a0| 33 2c 31 35 2c 36 30 00 | 20 20 20 80 0b 20 70 79 |3,15,60.| .. py|
|000019b0| 20 3e 20 31 39 30 20 80 | 21 20 73 70 65 65 64 79 | > 190 .|! speedy|
|000019c0| 2e 71 28 61 29 2a 2d 31 | 3a ba 04 20 33 2c 31 35 |.q(a)*-1|:.. 3,15|
|000019d0| 2c 36 30 00 20 20 20 80 | 0b 20 70 79 20 3c 20 35 |,60. .|. py < 5|
|000019e0| 20 80 21 20 73 70 65 65 | 64 79 2e 71 28 61 29 2a | .! spee|dy.q(a)*|
|000019f0| 2d 31 3a ba 04 20 33 2c | 31 35 2c 36 30 00 20 20 |-1:.. 3,|15,60. |
|00001a00| 80 c0 00 00 20 20 70 6f | 73 78 2e 71 28 61 29 2b |.... po|sx.q(a)+|
|00001a10| 73 70 65 65 64 78 2e 71 | 28 61 29 2f 31 30 3a 70 |speedx.q|(a)/10:p|
|00001a20| 6f 73 79 2e 71 28 61 29 | 2b 73 70 65 65 64 79 2e |osy.q(a)|+speedy.|
|00001a30| 71 28 61 29 2f 31 30 00 | 20 20 80 0b 20 61 20 3c |q(a)/10.| .. a <|
|00001a40| 20 34 00 20 20 20 63 75 | 72 3d 6a 72 20 20 3b 20 | 4. cu|r=jr ; |
|00001a50| 74 61 6b 65 20 6a 6f 79 | 20 64 69 72 65 63 74 69 |take joy| directi|
|00001a60| 6f 6e 20 69 6e 74 6f 20 | 63 75 72 00 3b 00 3b 20 |on into |cur.;.; |
|00001a70| 20 20 20 20 20 73 6b 61 | 74 65 20 6d 61 72 6b 20 | ska|te mark |
|00001a80| 72 6f 75 74 69 6e 65 20 | 6e 6f 74 20 79 65 74 20 |routine |not yet |
|00001a90| 75 73 65 64 20 62 65 63 | 61 75 73 65 20 49 20 64 |used bec|ause I d|
|00001aa0| 6f 6e 27 74 20 6c 69 6b | 65 20 74 68 65 20 6d 61 |on't lik|e the ma|
|00001ab0| 72 6b 73 00 3b 00 3b 00 | 3b 20 20 20 20 20 20 49 |rks.;.;.|; I|
|00001ac0| 66 20 63 75 72 20 3c 20 | 38 20 41 4e 44 20 63 75 |f cur < |8 AND cu|
|00001ad0| 72 72 65 6e 74 28 61 29 | 20 3c 3e 20 63 75 72 00 |rrent(a)| <> cur.|
|00001ae0| 3b 20 20 20 20 20 20 20 | 20 49 66 20 63 75 72 20 |; | If cur |
|00001af0| 3d 20 30 20 4f 52 20 63 | 75 72 20 3d 20 34 00 3b |= 0 OR c|ur = 4.;|
|00001b00| 20 20 20 20 20 20 20 20 | 20 20 73 6b 69 64 20 3d | | skid =|
|00001b10| 20 49 6e 74 28 52 6e 64 | 28 34 29 29 3a 49 66 20 | Int(Rnd|(4)):If |
|00001b20| 73 6b 69 64 20 3d 20 32 | 20 54 68 65 6e 20 4c 69 |skid = 2| Then Li|
|00001b30| 6e 65 20 70 6f 73 78 2e | 71 28 61 29 2b 31 30 2c |ne posx.|q(a)+10,|
|00001b40| 70 6f 73 79 2e 71 28 61 | 29 2b 37 2c 70 6f 73 78 |posy.q(a|)+7,posx|
|00001b50| 2e 71 28 61 29 2b 31 30 | 2c 70 6f 73 79 2e 71 28 |.q(a)+10|,posy.q(|
|00001b60| 61 29 2b 39 2c 36 00 3b | 20 20 20 20 20 20 20 20 |a)+9,6.;| |
|00001b70| 45 6e 64 49 66 00 3b 20 | 20 20 20 20 20 20 20 49 |EndIf.; | I|
|00001b80| 66 20 63 75 72 20 3d 20 | 32 20 4f 52 20 63 75 72 |f cur = |2 OR cur|
|00001b90| 20 3d 20 36 00 3b 20 20 | 20 20 20 20 20 20 20 20 | = 6.; | |
|00001ba0| 73 6b 69 64 20 3d 20 49 | 6e 74 28 52 6e 64 28 34 |skid = I|nt(Rnd(4|
|00001bb0| 29 29 3a 49 66 20 73 6b | 69 64 20 3d 20 32 20 54 |)):If sk|id = 2 T|
|00001bc0| 68 65 6e 20 4c 69 6e 65 | 20 70 6f 73 78 2e 71 28 |hen Line| posx.q(|
|00001bd0| 61 29 2b 38 2c 70 6f 73 | 79 2e 71 28 61 29 2b 38 |a)+8,pos|y.q(a)+8|
|00001be0| 2c 70 6f 73 78 2e 71 28 | 61 29 2b 31 32 2c 70 6f |,posx.q(|a)+12,po|
|00001bf0| 73 79 2e 71 28 61 29 2b | 38 2c 36 00 3b 20 20 20 |sy.q(a)+|8,6.; |
|00001c00| 20 20 20 20 20 45 6e 64 | 49 66 00 20 20 20 80 0b | End|If. ..|
|00001c10| 20 63 75 72 20 3c 20 38 | 20 80 21 20 63 75 72 72 | cur < 8| .! curr|
|00001c20| 65 6e 74 28 61 29 3d 63 | 75 72 20 20 20 20 3b 20 |ent(a)=c|ur ; |
|00001c30| 69 66 20 73 74 69 63 6b | 20 68 61 73 20 6d 6f 76 |if stick| has mov|
|00001c40| 65 64 2c 20 63 68 61 6e | 67 65 20 63 75 72 72 65 |ed, chan|ge curre|
|00001c50| 6e 74 20 73 70 72 69 74 | 65 00 3b 20 20 20 20 20 |nt sprit|e.; |
|00001c60| 20 45 6e 64 49 66 00 00 | 20 20 80 c0 00 20 80 17 | EndIf..| ... ..|
|00001c70| 20 61 00 00 3b 20 64 69 | 64 20 70 75 63 6b 20 68 | a..; di|d puck h|
|00001c80| 69 74 20 74 68 65 20 6c | 65 66 74 20 67 6f 61 6c |it the l|eft goal|
|00001c90| 69 65 00 20 80 0b 20 b4 | 06 28 31 30 2c 67 6f 61 |ie. .. .|.(10,goa|
|00001ca0| 6c 69 65 78 28 30 29 2c | 67 6f 61 6c 69 65 79 28 |liex(0),|goaliey(|
|00001cb0| 30 29 2c 39 2c 70 6f 73 | 78 2e 71 28 34 29 2c 70 |0),9,pos|x.q(4),p|
|00001cc0| 6f 73 79 2e 71 28 34 29 | 29 00 20 20 3b 74 68 65 |osy.q(4)|). ;the|
|00001cd0| 20 61 62 6f 76 65 20 6c | 69 6e 65 20 69 73 20 63 | above l|ine is c|
|00001ce0| 68 61 6e 67 65 64 20 66 | 72 6f 6d 20 74 68 65 20 |hanged f|rom the |
|00001cf0| 6f 72 69 67 69 6e 61 6c | 20 60 53 68 61 70 65 73 |original| `Shapes|
|00001d00| 53 70 72 69 74 65 48 69 | 74 27 00 20 20 ba 04 20 |SpriteHi|t'. .. |
|00001d10| 33 2c 31 35 2c 36 30 00 | 20 20 80 0b 20 bc 08 28 |3,15,60.| .. ..(|
|00001d20| 73 70 65 65 64 78 2e 71 | 28 34 29 29 20 3e 20 31 |speedx.q|(4)) > 1|
|00001d30| 30 00 20 20 20 73 70 65 | 65 64 78 2e 71 28 34 29 |0. spe|edx.q(4)|
|00001d40| 20 2a 20 2d 31 00 20 20 | 20 70 6f 73 78 2e 71 28 | * -1. | posx.q(|
|00001d50| 34 29 20 3d 20 32 32 00 | 20 20 80 22 00 20 20 20 |4) = 22.| .". |
|00001d60| 73 70 65 65 64 78 2e 71 | 28 34 29 20 2a 20 2d 31 |speedx.q|(4) * -1|
|00001d70| 00 20 20 20 70 6f 73 78 | 2e 71 28 34 29 20 3d 20 |. posx|.q(4) = |
|00001d80| 33 30 00 20 20 80 c0 00 | 20 20 80 0b 20 77 68 6f |30. ...| .. who|
|00001d90| 3c 34 00 20 20 20 77 68 | 6f 3d 34 00 20 20 20 70 |<4. wh|o=4. p|
|00001da0| 6f 73 78 2e 71 28 34 29 | 20 2b 20 70 6f 73 78 2e |osx.q(4)| + posx.|
|00001db0| 71 28 34 29 2f bc 08 28 | 70 6f 73 78 2e 71 28 34 |q(4)/..(|posx.q(4|
|00001dc0| 29 29 20 2a 20 33 30 00 | 20 20 80 c0 00 20 80 c0 |)) * 30.| ... ..|
|00001dd0| 00 00 3b 20 64 69 64 20 | 74 68 65 20 70 75 63 6b |..; did |the puck|
|00001de0| 20 68 69 74 20 74 68 65 | 20 72 69 67 68 74 20 67 | hit the| right g|
|00001df0| 6f 61 6c 69 65 00 20 80 | 0b 20 b4 06 28 31 31 2c |oalie. .|. ..(11,|
|00001e00| 67 6f 61 6c 69 65 78 28 | 31 29 2c 67 6f 61 6c 69 |goaliex(|1),goali|
|00001e10| 65 79 28 31 29 2c 39 2c | 70 6f 73 78 2e 71 28 34 |ey(1),9,|posx.q(4|
|00001e20| 29 2c 70 6f 73 79 2e 71 | 28 34 29 29 00 20 20 ba |),posy.q|(4)). .|
|00001e30| 04 20 33 2c 31 35 2c 36 | 30 00 20 20 80 0b 20 bc |. 3,15,6|0. .. .|
|00001e40| 08 28 73 70 65 65 64 78 | 2e 71 28 34 29 29 20 3e |.(speedx|.q(4)) >|
|00001e50| 20 31 30 00 20 20 20 73 | 70 65 65 64 78 2e 71 28 | 10. s|peedx.q(|
|00001e60| 34 29 20 2a 20 2d 31 00 | 20 20 20 70 6f 73 78 2e |4) * -1.| posx.|
|00001e70| 71 28 34 29 20 3d 20 33 | 32 30 2d 32 33 00 20 20 |q(4) = 3|20-23. |
|00001e80| 80 22 00 20 20 20 73 70 | 65 65 64 78 2e 71 28 34 |.". sp|eedx.q(4|
|00001e90| 29 20 2a 20 2d 31 00 20 | 20 20 70 6f 73 78 2e 71 |) * -1. | posx.q|
|00001ea0| 28 34 29 20 3d 20 33 32 | 30 2d 33 35 00 20 20 80 |(4) = 32|0-35. .|
|00001eb0| c0 00 20 20 80 0b 20 77 | 68 6f 3c 34 00 20 20 20 |.. .. w|ho<4. |
|00001ec0| 77 68 6f 3d 34 00 20 20 | 20 70 6f 73 78 2e 71 28 |who=4. | posx.q(|
|00001ed0| 34 29 20 2d 20 70 6f 73 | 78 2e 71 28 34 29 2f bc |4) - pos|x.q(4)/.|
|00001ee0| 08 28 70 6f 73 78 2e 71 | 28 34 29 29 20 2a 20 33 |.(posx.q|(4)) * 3|
|00001ef0| 30 00 20 20 80 c0 00 20 | 80 c0 00 00 20 b8 02 20 |0. ... |.... .. |
|00001f00| 63 75 72 72 65 6e 74 28 | 30 29 2c 70 6f 73 78 2e |current(|0),posx.|
|00001f10| 71 28 30 29 2c 70 6f 73 | 79 2e 71 28 30 29 2c 30 |q(0),pos|y.q(0),0|
|00001f20| 20 20 20 20 20 3b 20 73 | 68 6f 77 20 61 20 70 6c | ; s|how a pl|
|00001f30| 61 79 65 72 00 20 b8 02 | 20 63 75 72 72 65 6e 74 |ayer. ..| current|
|00001f40| 28 31 29 2c 70 6f 73 78 | 2e 71 28 31 29 2c 70 6f |(1),posx|.q(1),po|
|00001f50| 73 79 2e 71 28 31 29 2c | 32 20 20 20 20 20 3b 20 |sy.q(1),|2 ; |
|00001f60| 73 68 6f 77 20 61 20 70 | 6c 61 79 65 72 00 20 b8 |show a p|layer. .|
|00001f70| 02 20 63 75 72 72 65 6e | 74 28 32 29 2c 70 6f 73 |. curren|t(2),pos|
|00001f80| 78 2e 71 28 32 29 2c 70 | 6f 73 79 2e 71 28 32 29 |x.q(2),p|osy.q(2)|
|00001f90| 2c 34 00 20 b8 02 20 63 | 75 72 72 65 6e 74 28 33 |,4. .. c|urrent(3|
|00001fa0| 29 2c 70 6f 73 78 2e 71 | 28 33 29 2c 70 6f 73 79 |),posx.q|(3),posy|
|00001fb0| 2e 71 28 33 29 2c 36 00 | 00 20 b4 0c 00 3b 20 54 |.q(3),6.|. ...; T|
|00001fc0| 65 73 74 20 70 6c 61 79 | 65 72 2d 70 6c 61 79 65 |est play|er-playe|
|00001fd0| 72 20 63 6f 6c 6c 69 73 | 69 6f 6e 2e 20 20 49 20 |r collis|ion. I |
|00001fe0| 64 69 64 6e 27 74 20 75 | 73 65 20 53 43 4f 4c 4c |didn't u|se SCOLL|
|00001ff0| 20 62 65 63 61 75 73 65 | 20 74 68 65 20 73 74 69 | because| the sti|
|00002000| 63 6b 73 00 3b 20 77 65 | 72 65 20 74 6f 6f 20 65 |cks.; we|re too e|
|00002010| 61 73 69 6c 79 20 74 61 | 6e 67 6c 65 64 00 20 80 |asily ta|ngled. .|
|00002020| 16 20 69 69 3d 30 20 80 | 18 20 32 00 20 20 80 16 |. ii=0 .|. 2. ..|
|00002030| 20 6a 6a 3d 69 69 2b 31 | 20 80 18 20 33 00 20 20 | jj=ii+1| .. 3. |
|00002040| 20 80 0b 20 b4 08 28 63 | 75 72 72 65 6e 74 28 69 | .. ..(c|urrent(i|
|00002050| 69 29 2c 70 6f 73 78 2e | 71 28 69 69 29 2c 70 6f |i),posx.|q(ii),po|
|00002060| 73 79 2e 71 28 69 69 29 | 2c 63 75 72 72 65 6e 74 |sy.q(ii)|,current|
|00002070| 28 6a 6a 29 2c 70 6f 73 | 78 2e 71 28 6a 6a 29 2c |(jj),pos|x.q(jj),|
|00002080| 70 6f 73 79 2e 71 28 6a | 6a 29 29 20 3d 20 2d 31 |posy.q(j|j)) = -1|
|00002090| 00 20 20 20 20 ba 04 20 | 32 2c 31 35 00 20 20 20 |. .. |2,15. |
|000020a0| 20 73 70 65 65 64 78 2e | 71 28 69 69 29 3d 20 2d | speedx.|q(ii)= -|
|000020b0| 31 2a 73 70 65 65 64 78 | 2e 71 28 69 69 29 3a 73 |1*speedx|.q(ii):s|
|000020c0| 70 65 65 64 79 2e 71 28 | 69 69 29 3d 2d 31 2a 73 |peedy.q(|ii)=-1*s|
|000020d0| 70 65 65 64 79 2e 71 28 | 69 69 29 00 20 20 20 20 |peedy.q(|ii). |
|000020e0| 70 6f 73 78 2e 71 28 69 | 69 29 2b 73 70 65 65 64 |posx.q(i|i)+speed|
|000020f0| 78 2e 71 28 69 69 29 2f | 34 3a 70 6f 73 79 2e 71 |x.q(ii)/|4:posy.q|
|00002100| 28 69 69 29 2b 73 70 65 | 65 64 79 2e 71 28 69 69 |(ii)+spe|edy.q(ii|
|00002110| 29 2f 34 00 20 20 20 20 | b8 02 20 63 75 72 72 65 |)/4. |.. curre|
|00002120| 6e 74 28 69 69 29 2c 70 | 6f 73 78 2e 71 28 69 69 |nt(ii),p|osx.q(ii|
|00002130| 29 2c 70 6f 73 79 2e 71 | 28 69 69 29 2c 69 69 2a |),posy.q|(ii),ii*|
|00002140| 32 00 20 20 20 20 73 70 | 65 65 64 78 2e 71 28 6a |2. sp|eedx.q(j|
|00002150| 6a 29 3d 20 2d 31 2a 73 | 70 65 65 64 78 2e 71 28 |j)= -1*s|peedx.q(|
|00002160| 6a 6a 29 3a 73 70 65 65 | 64 79 2e 71 28 6a 6a 29 |jj):spee|dy.q(jj)|
|00002170| 3d 2d 31 2a 73 70 65 65 | 64 79 2e 71 28 6a 6a 29 |=-1*spee|dy.q(jj)|
|00002180| 00 20 20 20 20 70 6f 73 | 78 2e 71 28 6a 6a 29 2b |. pos|x.q(jj)+|
|00002190| 73 70 65 65 64 78 2e 71 | 28 6a 6a 29 2f 34 3a 70 |speedx.q|(jj)/4:p|
|000021a0| 6f 73 79 2e 71 28 6a 6a | 29 2b 73 70 65 65 64 79 |osy.q(jj|)+speedy|
|000021b0| 2e 71 28 6a 6a 29 2f 34 | 00 20 20 20 20 b8 02 20 |.q(jj)/4|. .. |
|000021c0| 63 75 72 72 65 6e 74 28 | 6a 6a 29 2c 70 6f 73 78 |current(|jj),posx|
|000021d0| 2e 71 28 6a 6a 29 2c 70 | 6f 73 79 2e 71 28 6a 6a |.q(jj),p|osy.q(jj|
|000021e0| 29 2c 6a 6a 2a 32 00 20 | 20 20 80 c0 00 20 20 80 |),jj*2. | ... .|
|000021f0| 17 20 6a 6a 00 20 80 17 | 20 69 69 00 00 3b 20 69 |. jj. ..| ii..; i|
|00002200| 66 20 70 6c 61 79 65 72 | 20 68 69 74 73 20 70 75 |f player| hits pu|
|00002210| 63 6b 2c 20 6d 61 72 6b | 20 74 68 65 20 70 6f 73 |ck, mark| the pos|
|00002220| 73 65 73 73 69 6f 6e 00 | 20 80 0b 20 b4 0b 28 30 |session.| .. ..(0|
|00002230| 29 3d 2d 31 20 80 21 20 | 77 68 6f 3d 30 00 20 80 |)=-1 .! |who=0. .|
|00002240| 0b 20 b4 0b 28 32 29 3d | 2d 31 20 80 21 20 77 68 |. ..(2)=|-1 .! wh|
|00002250| 6f 3d 31 00 20 80 0b 20 | b4 0b 28 34 29 3d 2d 31 |o=1. .. |..(4)=-1|
|00002260| 20 80 21 20 77 68 6f 3d | 32 00 20 80 0b 20 b4 0b | .! who=|2. .. ..|
|00002270| 28 36 29 3d 2d 31 20 80 | 21 20 77 68 6f 3d 33 00 |(6)=-1 .|! who=3.|
|00002280| 00 3b 00 3b 20 20 54 68 | 65 73 65 20 70 6f 73 69 |.;.; Th|ese posi|
|00002290| 74 69 6f 6e 20 74 68 65 | 20 70 75 63 6b 20 6f 6e |tion the| puck on|
|000022a0| 20 74 68 65 20 70 6c 61 | 79 65 72 2e 20 20 49 20 | the pla|yer. I |
|000022b0| 63 6f 75 6c 64 20 68 61 | 76 65 20 6d 61 64 65 20 |could ha|ve made |
|000022c0| 74 68 65 73 65 20 6f 6e | 65 20 72 6f 75 74 69 6e |these on|e routin|
|000022d0| 65 2c 00 3b 20 20 62 75 | 74 20 74 68 65 20 63 6f |e,.; bu|t the co|
|000022e0| 64 65 20 69 73 20 73 6d | 61 6c 6c 20 61 6e 79 77 |de is sm|all anyw|
|000022f0| 61 79 20 61 6e 64 20 74 | 69 6d 65 20 77 61 73 20 |ay and t|ime was |
|00002300| 6f 66 20 74 68 65 20 65 | 73 73 65 6e 63 65 20 28 |of the e|ssence (|
|00002310| 63 75 74 20 26 20 70 61 | 73 74 65 20 69 73 20 51 |cut & pa|ste is Q|
|00002320| 55 49 43 4b 21 29 00 3b | 00 3b 20 20 44 61 76 69 |UICK!).;|.; Davi|
|00002330| 64 20 46 6f 6e 67 20 2d | 20 62 75 74 20 49 20 64 |d Fong -| but I d|
|00002340| 69 64 20 74 75 72 6e 20 | 69 74 20 69 6e 74 6f 20 |id turn |it into |
|00002350| 6f 6e 65 20 72 6f 75 74 | 69 6e 65 20 2d 20 66 6f |one rout|ine - fo|
|00002360| 72 20 62 65 74 74 65 72 | 20 6f 72 20 77 6f 72 73 |r better| or wors|
|00002370| 65 00 00 20 80 0b 20 77 | 68 6f 3c 34 00 20 20 73 |e.. .. w|ho<4. s|
|00002380| 70 65 65 64 78 2e 71 28 | 34 29 3d 73 70 65 65 64 |peedx.q(|4)=speed|
|00002390| 78 2e 71 28 77 68 6f 29 | 3a 73 70 65 65 64 79 2e |x.q(who)|:speedy.|
|000023a0| 71 28 34 29 3d 73 70 65 | 65 64 79 2e 71 28 77 68 |q(4)=spe|edy.q(wh|
|000023b0| 6f 29 00 20 20 80 0e 20 | 63 75 72 72 65 6e 74 28 |o). .. |current(|
|000023c0| 77 68 6f 29 00 20 20 20 | 80 0f 20 30 00 20 20 20 |who). |.. 0. |
|000023d0| 20 70 6f 73 78 2e 71 28 | 34 29 3d 70 6f 73 78 2e | posx.q(|4)=posx.|
|000023e0| 71 28 77 68 6f 29 2b 36 | 3a 70 6f 73 79 2e 71 28 |q(who)+6|:posy.q(|
|000023f0| 34 29 3d 70 6f 73 79 2e | 71 28 77 68 6f 29 2d 36 |4)=posy.|q(who)-6|
|00002400| 00 20 20 20 80 0f 20 31 | 00 20 20 20 20 70 6f 73 |. .. 1|. pos|
|00002410| 78 2e 71 28 34 29 3d 70 | 6f 73 78 2e 71 28 77 68 |x.q(4)=p|osx.q(wh|
|00002420| 6f 29 2b 32 31 3a 70 6f | 73 79 2e 71 28 34 29 3d |o)+21:po|sy.q(4)=|
|00002430| 70 6f 73 79 2e 71 28 77 | 68 6f 29 2d 35 00 20 20 |posy.q(w|ho)-5. |
|00002440| 20 80 0f 20 32 00 20 20 | 20 20 70 6f 73 78 2e 71 | .. 2. | posx.q|
|00002450| 28 34 29 3d 70 6f 73 78 | 2e 71 28 77 68 6f 29 2b |(4)=posx|.q(who)+|
|00002460| 32 30 3a 70 6f 73 79 2e | 71 28 34 29 3d 70 6f 73 |20:posy.|q(4)=pos|
|00002470| 79 2e 71 28 77 68 6f 29 | 2b 36 00 20 20 20 80 0f |y.q(who)|+6. ..|
|00002480| 20 33 00 20 20 20 20 70 | 6f 73 78 2e 71 28 34 29 | 3. p|osx.q(4)|
|00002490| 3d 70 6f 73 78 2e 71 28 | 77 68 6f 29 2b 31 39 3a |=posx.q(|who)+19:|
|000024a0| 70 6f 73 79 2e 71 28 34 | 29 3d 70 6f 73 79 2e 71 |posy.q(4|)=posy.q|
|000024b0| 28 77 68 6f 29 2b 31 36 | 00 20 20 20 80 0f 20 34 |(who)+16|. .. 4|
|000024c0| 00 20 20 20 20 70 6f 73 | 78 2e 71 28 34 29 3d 70 |. pos|x.q(4)=p|
|000024d0| 6f 73 78 2e 71 28 77 68 | 6f 29 2b 36 3a 70 6f 73 |osx.q(wh|o)+6:pos|
|000024e0| 79 2e 71 28 34 29 3d 70 | 6f 73 79 2e 71 28 77 68 |y.q(4)=p|osy.q(wh|
|000024f0| 6f 29 2b 31 38 00 20 20 | 20 80 0f 20 35 00 20 20 |o)+18. | .. 5. |
|00002500| 20 20 70 6f 73 78 2e 71 | 28 34 29 3d 70 6f 73 78 | posx.q|(4)=posx|
|00002510| 2e 71 28 77 68 6f 29 2d | 35 3a 70 6f 73 79 2e 71 |.q(who)-|5:posy.q|
|00002520| 28 34 29 3d 70 6f 73 79 | 2e 71 28 77 68 6f 29 2b |(4)=posy|.q(who)+|
|00002530| 31 35 00 20 20 20 80 0f | 20 36 00 20 20 20 20 70 |15. ..| 6. p|
|00002540| 6f 73 78 2e 71 28 34 29 | 3d 70 6f 73 78 2e 71 28 |osx.q(4)|=posx.q(|
|00002550| 77 68 6f 29 2b 2d 37 3a | 70 6f 73 79 2e 71 28 34 |who)+-7:|posy.q(4|
|00002560| 29 3d 70 6f 73 79 2e 71 | 28 77 68 6f 29 2b 36 00 |)=posy.q|(who)+6.|
|00002570| 20 20 20 80 0f 20 37 00 | 20 20 20 20 70 6f 73 78 | .. 7.| posx|
|00002580| 2e 71 28 34 29 3d 70 6f | 73 78 2e 71 28 77 68 6f |.q(4)=po|sx.q(who|
|00002590| 29 2b 2d 36 3a 70 6f 73 | 79 2e 71 28 34 29 3d 70 |)+-6:pos|y.q(4)=p|
|000025a0| 6f 73 79 2e 71 28 77 68 | 6f 29 2d 33 00 20 20 20 |osy.q(wh|o)-3. |
|000025b0| 80 10 00 20 20 80 02 20 | 80 0e 00 20 20 70 6f 73 |... .. |... pos|
|000025c0| 78 2e 71 28 34 29 2b 73 | 70 65 65 64 78 2e 71 28 |x.q(4)+s|peedx.q(|
|000025d0| 77 68 6f 29 2f 31 32 3a | 70 6f 73 79 2e 71 28 34 |who)/12:|posy.q(4|
|000025e0| 29 2b 73 70 65 65 64 79 | 2e 71 28 77 68 6f 29 2f |)+speedy|.q(who)/|
|000025f0| 31 32 00 20 20 3b 74 68 | 65 20 61 62 6f 76 65 20 |12. ;th|e above |
|00002600| 6c 69 6e 65 20 69 73 20 | 6e 65 63 65 73 73 61 72 |line is |necessar|
|00002610| 79 20 74 6f 20 6b 65 65 | 70 20 74 68 65 20 70 75 |y to kee|p the pu|
|00002620| 63 6b 20 61 77 61 79 20 | 66 72 6f 6d 20 74 68 65 |ck away |from the|
|00002630| 20 60 68 6f 6c 64 69 6e | 67 27 00 20 20 3b 70 6c | `holdin|g'. ;pl|
|00002640| 61 79 65 72 2e 20 20 41 | 73 20 69 74 20 77 61 73 |ayer. A|s it was|
|00002650| 2c 20 61 74 20 68 69 67 | 68 20 73 70 65 65 64 73 |, at hig|h speeds|
|00002660| 2c 20 74 68 65 20 70 75 | 63 6b 20 77 6f 75 6c 64 |, the pu|ck would|
|00002670| 20 61 63 74 75 61 6c 6c | 79 20 62 65 20 72 69 67 | actuall|y be rig|
|00002680| 68 74 00 20 20 3b 6f 6e | 20 74 6f 70 20 6f 66 20 |ht. ;on| top of |
|00002690| 74 68 65 20 68 6f 6c 64 | 69 6e 67 20 70 6c 61 79 |the hold|ing play|
|000026a0| 65 72 27 73 20 73 74 69 | 63 6b 2c 20 6d 61 6b 69 |er's sti|ck, maki|
|000026b0| 6e 67 20 69 74 20 69 6d | 70 6f 73 73 69 62 6c 65 |ng it im|possible|
|000026c0| 20 66 6f 72 00 20 20 3b | 74 68 65 20 70 6c 61 79 | for. ;|the play|
|000026d0| 65 72 20 74 6f 20 73 68 | 6f 6f 74 20 74 68 65 20 |er to sh|oot the |
|000026e0| 70 75 63 6b 2c 20 62 65 | 63 61 75 73 65 20 74 68 |puck, be|cause th|
|000026f0| 65 20 70 6c 61 79 65 72 | 20 77 61 73 20 61 6c 77 |e player| was alw|
|00002700| 61 79 73 20 60 70 69 63 | 6b 69 6e 67 27 00 20 20 |ays `pic|king'. |
|00002710| 3b 74 68 65 20 70 75 63 | 6b 20 62 61 63 6b 20 75 |;the puc|k back u|
|00002720| 70 20 61 67 61 69 6e 21 | 00 20 20 3b 61 74 20 74 |p again!|. ;at t|
|00002730| 68 65 20 63 75 72 72 65 | 6e 74 20 73 65 74 74 69 |he curre|nt setti|
|00002740| 6e 67 2c 20 74 68 65 20 | 70 75 63 6b 20 6d 69 67 |ng, the |puck mig|
|00002750| 68 74 20 6d 6f 76 65 20 | 73 6c 69 67 68 74 6c 79 |ht move |slightly|
|00002760| 20 41 57 41 59 20 66 72 | 6f 6d 00 20 20 3b 74 68 | AWAY fr|om. ;th|
|00002770| 65 20 70 6c 61 79 65 72 | 20 69 66 20 74 68 65 20 |e player| if the |
|00002780| 70 6c 61 79 65 72 20 69 | 73 20 6d 6f 76 69 6e 67 |player i|s moving|
|00002790| 20 71 75 69 63 6b 6c 79 | 20 28 61 6e 64 20 79 6f | quickly| (and yo|
|000027a0| 75 20 61 72 65 20 75 73 | 69 6e 67 20 61 00 20 20 |u are us|ing a. |
|000027b0| 3b 6d 61 63 68 69 6e 65 | 20 74 68 61 6e 20 6d 79 |;machine| than my|
|000027c0| 20 34 30 20 4d 48 7a 20 | 36 38 30 33 30 20 41 31 | 40 MHz |68030 A1|
|000027d0| 32 30 30 29 2e 20 20 48 | 6f 77 65 76 65 72 20 49 |200). H|owever I|
|000027e0| 20 66 65 65 6c 20 74 68 | 69 73 20 69 73 00 20 20 | feel th|is is. |
|000027f0| 3b 6d 6f 72 65 20 72 65 | 61 6c 69 73 74 69 63 2c |;more re|alistic,|
|00002800| 20 61 6e 64 20 73 6f 6d | 65 74 68 69 6e 67 20 6f | and som|ething o|
|00002810| 66 20 61 6e 20 61 64 64 | 65 64 20 66 65 61 74 75 |f an add|ed featu|
|00002820| 72 65 21 00 20 80 c0 00 | 00 20 80 37 00 00 20 80 |re!. ...|. .7.. .|
|00002830| 0b 20 70 6f 73 78 2e 71 | 28 34 29 3e 32 20 80 42 |. posx.q|(4)>2 .B|
|00002840| 20 70 6f 73 78 2e 71 28 | 34 29 3c 33 31 37 20 80 | posx.q(|4)<317 .|
|00002850| 42 20 70 6f 73 79 2e 71 | 28 34 29 3e 32 20 80 42 |B posy.q|(4)>2 .B|
|00002860| 20 70 6f 73 79 2e 71 28 | 34 29 3c 31 39 33 00 20 | posy.q(|4)<193. |
|00002870| 20 20 c9 03 20 30 00 20 | 20 20 c9 02 20 30 2c 39 | .. 0. | .. 0,9|
|00002880| 2c 70 6f 73 78 2e 71 28 | 34 29 2c 70 6f 73 79 2e |,posx.q(|4),posy.|
|00002890| 71 28 34 29 00 20 80 c0 | 00 00 80 c1 00 80 02 00 |q(4). ..|........|
|000028a0| 00 3b 54 68 65 20 73 63 | 6f 72 65 20 72 6f 75 74 |.;The sc|ore rout|
|000028b0| 69 6e 65 2c 20 73 6f 20 | 73 69 6d 70 6c 65 2c 20 |ine, so |simple, |
|000028c0| 69 74 20 65 78 70 6c 61 | 69 6e 73 20 69 74 73 65 |it expla|ins itse|
|000028d0| 6c 66 00 67 6f 61 6c 3a | 00 80 16 20 61 20 3d 20 |lf.goal:|... a = |
|000028e0| 30 20 80 18 20 31 00 20 | ba 04 20 31 2c 31 35 00 |0 .. 1. |.. 1,15.|
|000028f0| 20 cb 02 20 cb 04 00 20 | cb 01 20 31 31 2d 61 2c | .. ... |.. 11-a,|
|00002900| 67 6f 61 6c 69 65 78 28 | 61 29 2c 67 6f 61 6c 69 |goaliex(|a),goali|
|00002910| 65 79 28 61 29 00 20 67 | 6f 61 6c 69 65 79 28 61 |ey(a). g|oaliey(a|
|00002920| 29 2b 32 2a 6a 79 00 20 | c7 04 20 31 35 2c 2e 32 |)+2*jy. |.. 15,.2|
|00002930| 3a dd 81 20 73 63 6f 72 | 65 31 3a c7 04 20 33 35 |:.. scor|e1:.. 35|
|00002940| 2c 2e 32 3a dd 81 20 73 | 63 6f 72 65 30 00 80 17 |,.2:.. s|core0...|
|00002950| 20 61 00 80 0b 20 73 63 | 6f 72 65 30 3d 33 00 20 | a... sc|ore0=3. |
|00002960| 80 2c 20 c8 01 20 31 3a | 80 2c 20 d0 01 20 32 3a |., .. 1:|., .. 2:|
|00002970| b2 05 20 31 3a c8 04 20 | 32 00 20 c7 03 20 30 2c |.. 1:.. |2. .. 0,|
|00002980| 31 3a c7 02 20 32 3a c7 | 04 20 30 2c 2e 32 00 20 |1:.. 2:.|. 0,.2. |
|00002990| dd 81 22 20 20 20 20 20 | 20 20 20 20 4d 6f 6e 74 |.." | Mont|
|000029a0| 72 65 61 6c 20 57 69 6e | 73 21 21 21 21 20 20 20 |real Win|s!!!! |
|000029b0| 20 20 20 20 20 20 22 3a | 73 63 6f 72 65 30 3d 30 | ":|score0=0|
|000029c0| 3a 73 63 6f 72 65 31 3d | 30 00 20 80 2c 20 d0 01 |:score1=|0. ., ..|
|000029d0| 20 30 3a c7 02 20 31 00 | 20 80 2c 20 c8 01 20 30 | 0:.. 1.| ., .. 0|
|000029e0| 00 80 c0 00 80 0b 20 73 | 63 6f 72 65 31 3d 33 00 |...... s|core1=3.|
|000029f0| 20 80 2c 20 c8 01 20 31 | 3a 80 2c 20 d0 01 20 32 | ., .. 1|:., .. 2|
|00002a00| 3a b2 05 20 31 3a c8 04 | 20 32 00 20 c7 03 20 30 |:.. 1:..| 2. .. 0|
|00002a10| 2c 31 3a c7 02 20 32 3a | c7 04 20 30 2c 2e 32 00 |,1:.. 2:|.. 0,.2.|
|00002a20| 20 dd 81 22 20 20 20 20 | 20 20 20 20 20 4c 6f 73 | .." | Los|
|00002a30| 20 41 6e 67 65 6c 6f 73 | 20 57 69 6e 73 21 21 21 | Angelos| Wins!!!|
|00002a40| 21 20 20 20 20 20 20 20 | 20 20 22 3a 73 63 6f 72 |! | ":scor|
|00002a50| 65 30 3d 30 3a 73 63 6f | 72 65 31 3d 30 00 20 80 |e0=0:sco|re1=0. .|
|00002a60| 2c 20 d0 01 20 30 3a c7 | 02 20 31 00 20 80 2c 20 |, .. 0:.|. 1. ., |
|00002a70| c8 01 20 30 00 80 c0 00 | 00 80 0c 20 df 04 28 30 |.. 0....|... ..(0|
|00002a80| 29 20 3d 20 30 20 80 42 | 20 df 04 28 31 29 20 3d |) = 0 .B| ..(1) =|
|00002a90| 20 30 00 20 b1 01 20 80 | c5 00 20 80 0b 20 b1 02 | 0. .. .|.. .. ..|
|00002aa0| 28 24 34 35 29 20 3d 20 | 2d 31 20 80 21 20 80 02 |($45) = |-1 .! ..|
|00002ab0| 00 20 b1 01 20 80 c6 00 | 80 c1 00 80 0c 20 df 04 |. .. ...|..... ..|
|00002ac0| 28 30 29 20 3c 3e 20 30 | 20 80 8a 20 df 04 28 31 |(0) <> 0| .. ..(1|
|00002ad0| 29 20 3c 3e 20 30 00 20 | b1 01 20 80 c5 00 20 80 |) <> 0. |.. ... .|
|00002ae0| 0b 20 b1 02 28 24 34 35 | 29 20 3d 20 2d 31 20 80 |. ..($45|) = -1 .|
|00002af0| 21 20 80 02 00 20 b1 01 | 20 80 c6 00 80 c1 00 80 |! ... ..| .......|
|00002b00| 0c 20 df 04 28 30 29 20 | 3d 20 30 20 80 42 20 df |. ..(0) |= 0 .B .|
|00002b10| 04 28 31 29 20 3d 20 30 | 00 20 b1 01 20 80 c5 00 |.(1) = 0|. .. ...|
|00002b20| 20 80 0b 20 b1 02 28 24 | 34 35 29 20 3d 20 2d 31 | .. ..($|45) = -1|
|00002b30| 20 80 21 20 80 02 00 20 | b1 01 20 80 c6 00 80 c1 | .! ... |.. .....|
|00002b40| 00 80 2c 20 c8 01 20 31 | 00 c8 04 20 31 00 80 2c |.., .. 1|... 1..,|
|00002b50| 20 c8 01 20 30 00 c7 04 | 20 31 35 2c 2e 32 3a dd | .. 0...| 15,.2:.|
|00002b60| 81 20 73 63 6f 72 65 31 | 3a c7 04 20 33 35 2c 2e |. score1|:.. 35,.|
|00002b70| 32 3a dd 81 20 73 63 6f | 72 65 30 00 00 80 05 20 |2:.. sco|re0.... |
|00002b80| 73 74 61 72 74 00 00 | |start.. | |
+--------+-------------------------+-------------------------+--------+--------+
